data segment
	STUDENT_NAME	DB	30	DUP(21h)
	STUDENT_ADDR	DB	9       DUP(?)
	PRINT_LINE	DB	132	DUP(?)
	STRING1		DB      'YES$'
	STRING2		DB	'NO$'
data ends

code segment
main proc far
	assume cs:code,ds:data,es:data

start:
	push ds
	sub ax,ax
	push ax
	mov ax,data
	mov ds,ax
	mov es,ax
	
	mov al,21h	;2dh=' '
	lea di, STUDENT_NAME
	mov cx,30

comp:	mov bl,[di]
	cmp bl,al	
	jz goon
	lea dx,STRING2
	mov ah,09h
	int 21h
	jmp return
goon:
	inc di
	dec cx
	jnz comp
	
	lea di,STUDENT_NAME
	mov cx,30
next:   
	mov ax,2Ah
	mov [di],ax
	inc di
	dec cx
	jnz next

	lea dx,STRING1
	mov ah,09h
	int 21h
return:
	ret
main endp
code ends
	end start
